This is METAFONT, WAITS Version 0.8 (preloaded base=plain 85.4.2)  2 APR 1985 02:18
**stest
(STEST.MF[CM,DEK] (CMBASE.MF[CM,DEK]) (CMSX10.MF[CM,DEK]) (TEST.MF[CM,DEK]
The letter z
{tracingedges:=2}
{tracingtitles:=1}
{tracingequations:=1}
{tracingcapsules:=1}
{tracingspecs:=1}
{tracingpens:=1}
{tracingchoices:=1}
{tracingstats:=2}
{tracingoutput:=1}
{tracingmacros:=3}

filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen

stroke<text>->begingroup.forsuffixes.e=l,r:path_.e:=(TEXT2);endfor.if.cycle.pat
h_.l:errmessage"Beware: `stroke' isn't intended for cycles";fi.path_.l--reverse
.path_.r--cycle.endgroup
(SUFFIX0)<-
(SUFFIX1)<-stroke
(TEXT2)<-z1e--z2e--z3e--z4e
{begingroup}
{forsuffixes}
{loop value=l}

--->{curl1}..{curl1}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1l
{begingroup}
{endgroup}

--->{curl1}..{curl1}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2l
{begingroup}
{endgroup}

--->{curl1}..{curl1}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3l
{begingroup}
{endgroup}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-4l
{begingroup}
{endgroup}
Path at line 14, before choices:
(114.44002,152){curl 1}
 ..{curl 1}(114.44002,152){curl 1}
 ..{curl 1}(24,15){curl 1}
 ..{curl 1}(24,13)

Path at line 14, after choices:
(114.44002,152)..controls (114.44002,152) and (114.44002,152)
 ..(114.44002,152)..controls (84.29335,106.33333) and (54.14667,60.66667)
 ..(24,15)..controls (24,14.33333) and (24,13.66667)
 ..(24,13)

{path_.l:=path}
{[repeat the loop]}
{loop value=r}

--->{curl1}..{curl1}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-1r
{begingroup}
{endgroup}

--->{curl1}..{curl1}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-2r
{begingroup}
{endgroup}

--->{curl1}..{curl1}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3r
{begingroup}
{endgroup}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-4r
{begingroup}
{endgroup}
Path at line 14, before choices:
(142,152){curl 1}
 ..{curl 1}(142,152){curl 1}
 ..{curl 1}(51.55998,15){curl 1}
 ..{curl 1}(51.55998,13)

Path at line 14, after choices:
(142,152)..controls (142,152) and (142,152)
 ..(142,152)..controls (111.85333,106.33333) and (81.70665,60.66667)
 ..(51.55998,15)..controls (51.55998,14.33333) and (51.55998,13.66667)
 ..(51.55998,13)

{path_.r:=path}
{[repeat the loop]}
{if}
{cycle(path)}
{false}

--->{curl1}..{curl1}

--->{curl1}..{curl1}
{reverse(path)}
Path at line 14, before choices:
(114.44002,152)..controls (114.44002,152) and (114.44002,152)
 ..(114.44002,152)..controls (84.29335,106.33333) and (54.14667,60.66667)
 ..(24,15)..controls (24,14.33333) and (24,13.66667)
 ..(24,13){curl 1}
 ..{curl 1}(51.55998,13)..controls (51.55998,13.66667) and (51.55998,14.33333)
 ..(51.55998,15)..controls (81.70665,60.66667) and (111.85333,106.33333)
 ..(142,152)..controls (142,152) and (142,152)
 ..(142,152){curl 1}
 ..{curl 1}cycle

Path at line 14, after choices:
(114.44002,152)..controls (114.44002,152) and (114.44002,152)
 ..(114.44002,152)..controls (84.29335,106.33333) and (54.14667,60.66667)
 ..(24,15)..controls (24,14.33333) and (24,13.66667)
 ..(24,13)..controls (33.18666,13) and (42.37332,13)
 ..(51.55998,13)..controls (51.55998,13.66667) and (51.55998,14.33333)
 ..(51.55998,15)..controls (81.70665,60.66667) and (111.85333,106.33333)
 ..(142,152)..controls (142,152) and (142,152)
 ..(142,152)..controls (132.81334,152) and (123.62668,152)
 ..cycle

{endgroup}
(EXPR0)<-path

fill<expr>->addto_currentpicture.contour↑(EXPR0)

counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(0)<=(0)}
{true}
{fi}
{reverse(path)}
{endgroup}
(EXPR0)<-path

addto_currentpicture->addto.currentpicture
{addto}

↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 14, before subdivision into octants:
(114.44002,152)..controls (123.62668,152) and (132.81334,152)
 ..(142,152)..controls (142,152) and (142,152)
 ..(142,152)..controls (111.85333,106.33333) and (81.70665,60.66667)
 ..(51.55998,15)..controls (51.55998,14.33333) and (51.55998,13.66667)
 ..(51.55998,13)..controls (42.37332,13) and (33.18666,13)
 ..(24,13)..controls (24,13.66667) and (24,14.33333)
 ..(24,15)..controls (54.14667,60.66667) and (84.29335,106.33333)
 ..(114.44002,152)..controls (114.44002,152) and (114.44002,152)
 ..cycle

Cycle spec at line 14, after subdivision and autorounding:
(114.44002,152) % beginning in octant `En'
   ..controls (123.62668,152) and (132.81334,152)
 ..(142,152) % segment 0
% entering octant `Es'
% entering octant `Se'
% entering octant `Sw'
   ..controls (111.85333,106.33333) and (81.70665,60.66667)
 ..(51.55998,15) % segment 2
   ..controls (51.55998,14.33333) and (51.55998,13.66667)
 ..(51.55998,13) % segment 3
% entering octant `Ws'
   ..controls (42.37332,13) and (33.18666,13)
 ..(24,13) % segment 4
% entering octant `Wn'
% entering octant `Nw'
% entering octant `Ne'
   ..controls (24,13.66667) and (24,14.33333)
 ..(24,15) % segment 5
   ..controls (54.14667,60.66667) and (84.29335,106.33333)
 ..(114.44002,152) % segment 6
 & cycle


>> En 0 Es Se Sw 2 3 Ws 4 Wn Nw Ne 5 6 En
! Backwards path (turning number is negative).
<to be read again> 
                   ;
p.5,l.14 ...raw stroke z1e--z2e--z3e--z4e;
                                           % diagonal
? e
 
Here is how much of METAFONT's memory you used:
 168 strings out of 276
 1353 string characters out of 9956
 11791 words of memory out of 60001
 633 symbolic tokens out of 2100
 8i,62n,4r,10p,155b stack positions out of 30i,100n,300r,150p,500b
Output written on STEST.GF[CM,DEK] (0 characters, 124 bytes).